home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest90 / NET.RED < prev    next >
Encoding:
Text File  |  1991-08-13  |  1.1 KB  |  45 lines
  1. ;
  2. ;    Warrior: Net
  3. ;  File name: Net.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Sasha Wait
  7. ;     Branch: Lisgar Collegiate Institute
  8. ;
  9.           JMP seek
  10. srch      DAT 0              1
  11.           JMP trap
  12. seek      ADD #61            srch
  13.           JMZ seek           <srch
  14.           MOV srch           scn
  15. detour    JMP newScan
  16. newScan   SPL scan           scan
  17.           MOV rstLoop        detour
  18. rstLoop   JMP -3
  19. stn       SPL stn            stn
  20. net       JMP @net           -2
  21. splt      SPL trap           trap
  22.           MOV zero           <smash
  23.           JMP splt
  24. trap      DJN splt           count
  25.           MOV zero           splt
  26. scn       DAT 0              1024
  27. zero      DAT 0              0
  28. plcTrap   ADD #1             scn
  29.           MOV net            @scn
  30.           SUB scn            @scn
  31.           JMP next
  32. stun      MOV stn            @scn
  33. next      JMN stun           <scn
  34.           MOV stn            @scn
  35.           JMP scan
  36. reset     MOV #-16           scn
  37. scan      JMZ scan           <scn
  38.           CMP smash          @scn
  39.           JMP plcTrap
  40. count     JMP reset          64
  41. smash     JMP reset          srch
  42.           END seek
  43.  
  44.  
  45. T